#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use autodie;

my $oldest_name = shift @ARGV;
my $oldest_age = -M $oldest_name;

foreach (@ARGV) {
	my $age = -M;
	($oldest_name, $oldest_age) = ($_, $age) if $age > $oldest_age;

}

print "The oledst file is $oldest_name, and it was $oldest_age days old.\n";
